home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 5 (Internal Edition) / Apple R&P Lib Internal v5.0.iso / 6-Developer Demos / Developer Demos-Ed. / Macintosh School® CD-ROM Demo / Macintosh SchoolÆ CD-ROM Demo / card_95842.txt < prev    next >
Text File  |  1990-08-14  |  14KB  |  713 lines
  1. -- card: 95842 from stack: in
  2. -- bmap block id: 96150
  3. -- flags: 4000
  4. -- background id: 19276
  5. -- name: Prefs…
  6. ----- HyperTalk script -----
  7. on openCard
  8.   global buttonNumber
  9.   put char 1 to 3 of the long date & "," & item 2 to 3 of the abbrev date into background field date
  10.   set hilite of background button buttonNumber to false
  11. end openCard
  12.  
  13. on closeCard
  14.   global buttonNumber
  15.   set hilite of background button buttonNumber to true
  16. end closeCard
  17.  
  18.  
  19. -- part 1 (button)
  20. -- low flags: 00
  21. -- high flags: 0000
  22. -- rect: left=0 top=0 right=342 bottom=512
  23. -- title width / last selected line: 0
  24. -- icon id / first selected line: 0 / 0
  25. -- text alignment: 1
  26. -- font id: 0
  27. -- text size: 12
  28. -- style flags: 0
  29. -- line height: 16
  30. -- part name: 
  31.  
  32.  
  33. -- part 2 (button)
  34. -- low flags: 00
  35. -- high flags: 2000
  36. -- rect: left=126 top=301 right=319 bottom=204
  37. -- title width / last selected line: 0
  38. -- icon id / first selected line: 0 / 0
  39. -- text alignment: 1
  40. -- font id: 0
  41. -- text size: 12
  42. -- style flags: 0
  43. -- line height: 16
  44. -- part name: OK
  45. ----- HyperTalk script -----
  46. on mouseUp
  47.   lock screen
  48.   pop card
  49.   unlock screen
  50. end mouseUp
  51.  
  52.  
  53.  
  54. -- part 3 (button)
  55. -- low flags: 00
  56. -- high flags: 2000
  57. -- rect: left=303 top=301 right=319 bottom=381
  58. -- title width / last selected line: 0
  59. -- icon id / first selected line: 0 / 0
  60. -- text alignment: 1
  61. -- font id: 0
  62. -- text size: 12
  63. -- style flags: 0
  64. -- line height: 16
  65. -- part name: Cancel
  66. ----- HyperTalk script -----
  67. on mouseUp
  68.   lock screen
  69.   pop card
  70.   unlock screen
  71. end mouseUp
  72.  
  73.  
  74.  
  75. -- part 4 (button)
  76. -- low flags: 00
  77. -- high flags: 8001
  78. -- rect: left=293 top=83 right=95 bottom=306
  79. -- title width / last selected line: 0
  80. -- icon id / first selected line: 0 / 0
  81. -- text alignment: 1
  82. -- font id: 3
  83. -- text size: 9
  84. -- style flags: 0
  85. -- line height: 12
  86. -- part name: M
  87. ----- HyperTalk script -----
  88. on mouseUp
  89.   if icon of me is 0 then set hilite of me to not hilite of me
  90.   else beep
  91. end mouseUp
  92.  
  93.  
  94.  
  95. -- part 5 (button)
  96. -- low flags: 00
  97. -- high flags: 8001
  98. -- rect: left=309 top=83 right=95 bottom=322
  99. -- title width / last selected line: 0
  100. -- icon id / first selected line: 0 / 0
  101. -- text alignment: 1
  102. -- font id: 3
  103. -- text size: 9
  104. -- style flags: 0
  105. -- line height: 12
  106. -- part name: 1
  107. ----- HyperTalk script -----
  108. on mouseUp
  109.   if icon of me is 0 then set hilite of me to not hilite of me
  110.   else beep
  111. end mouseUp
  112.  
  113.  
  114.  
  115. -- part 6 (button)
  116. -- low flags: 00
  117. -- high flags: 8001
  118. -- rect: left=325 top=83 right=95 bottom=338
  119. -- title width / last selected line: 0
  120. -- icon id / first selected line: 0 / 0
  121. -- text alignment: 1
  122. -- font id: 3
  123. -- text size: 9
  124. -- style flags: 0
  125. -- line height: 12
  126. -- part name: 2
  127. ----- HyperTalk script -----
  128. on mouseUp
  129.   if icon of me is 0 then set hilite of me to not hilite of me
  130.   else beep
  131. end mouseUp
  132.  
  133.  
  134.  
  135. -- part 7 (button)
  136. -- low flags: 00
  137. -- high flags: 8001
  138. -- rect: left=341 top=83 right=95 bottom=354
  139. -- title width / last selected line: 0
  140. -- icon id / first selected line: 0 / 0
  141. -- text alignment: 1
  142. -- font id: 3
  143. -- text size: 9
  144. -- style flags: 0
  145. -- line height: 12
  146. -- part name: 3
  147. ----- HyperTalk script -----
  148. on mouseUp
  149.   if icon of me is 0 then set hilite of me to not hilite of me
  150.   else beep
  151. end mouseUp
  152.  
  153.  
  154.  
  155. -- part 8 (button)
  156. -- low flags: 00
  157. -- high flags: 8001
  158. -- rect: left=357 top=83 right=95 bottom=370
  159. -- title width / last selected line: 0
  160. -- icon id / first selected line: 0 / 0
  161. -- text alignment: 1
  162. -- font id: 3
  163. -- text size: 9
  164. -- style flags: 0
  165. -- line height: 12
  166. -- part name: 4
  167. ----- HyperTalk script -----
  168. on mouseUp
  169.   if icon of me is 0 then set hilite of me to not hilite of me
  170.   else beep
  171. end mouseUp
  172.  
  173.  
  174.  
  175. -- part 9 (button)
  176. -- low flags: 00
  177. -- high flags: 8001
  178. -- rect: left=373 top=83 right=95 bottom=386
  179. -- title width / last selected line: 0
  180. -- icon id / first selected line: 0 / 0
  181. -- text alignment: 1
  182. -- font id: 3
  183. -- text size: 9
  184. -- style flags: 0
  185. -- line height: 12
  186. -- part name: 5
  187. ----- HyperTalk script -----
  188. on mouseUp
  189.   if icon of me is 0 then set hilite of me to not hilite of me
  190.   else beep
  191. end mouseUp
  192.  
  193.  
  194.  
  195. -- part 10 (button)
  196. -- low flags: 00
  197. -- high flags: 8001
  198. -- rect: left=389 top=83 right=95 bottom=402
  199. -- title width / last selected line: 0
  200. -- icon id / first selected line: 0 / 0
  201. -- text alignment: 1
  202. -- font id: 3
  203. -- text size: 9
  204. -- style flags: 0
  205. -- line height: 12
  206. -- part name: 6
  207. ----- HyperTalk script -----
  208. on mouseUp
  209.   if icon of me is 0 then set hilite of me to not hilite of me
  210.   else beep
  211. end mouseUp
  212.  
  213.  
  214.  
  215. -- part 11 (button)
  216. -- low flags: 00
  217. -- high flags: 8001
  218. -- rect: left=405 top=83 right=95 bottom=418
  219. -- title width / last selected line: 0
  220. -- icon id / first selected line: 0 / 0
  221. -- text alignment: 1
  222. -- font id: 3
  223. -- text size: 9
  224. -- style flags: 0
  225. -- line height: 12
  226. -- part name: 7
  227. ----- HyperTalk script -----
  228. on mouseUp
  229.   if icon of me is 0 then set hilite of me to not hilite of me
  230.   else beep
  231. end mouseUp
  232.  
  233.  
  234.  
  235. -- part 12 (button)
  236. -- low flags: 00
  237. -- high flags: 8001
  238. -- rect: left=421 top=83 right=95 bottom=434
  239. -- title width / last selected line: 0
  240. -- icon id / first selected line: 0 / 0
  241. -- text alignment: 1
  242. -- font id: 3
  243. -- text size: 9
  244. -- style flags: 0
  245. -- line height: 12
  246. -- part name: 8
  247. ----- HyperTalk script -----
  248. on mouseUp
  249.   if icon of me is 0 then set hilite of me to not hilite of me
  250.   else beep
  251. end mouseUp
  252.  
  253.  
  254.  
  255. -- part 13 (field)
  256. -- low flags: 01
  257. -- high flags: 0000
  258. -- rect: left=300 top=105 right=123 bottom=434
  259. -- title width / last selected line: 0
  260. -- icon id / first selected line: 0 / 0
  261. -- text alignment: 0
  262. -- font id: 0
  263. -- text size: 12
  264. -- style flags: 0
  265. -- line height: 16
  266. -- part name: 
  267.  
  268.  
  269. -- part 14 (field)
  270. -- low flags: 01
  271. -- high flags: 0000
  272. -- rect: left=300 top=131 right=149 bottom=434
  273. -- title width / last selected line: 0
  274. -- icon id / first selected line: 0 / 0
  275. -- text alignment: 0
  276. -- font id: 0
  277. -- text size: 12
  278. -- style flags: 0
  279. -- line height: 16
  280. -- part name: 
  281.  
  282.  
  283. -- part 15 (field)
  284. -- low flags: 01
  285. -- high flags: 0000
  286. -- rect: left=300 top=157 right=175 bottom=434
  287. -- title width / last selected line: 0
  288. -- icon id / first selected line: 0 / 0
  289. -- text alignment: 0
  290. -- font id: 0
  291. -- text size: 12
  292. -- style flags: 0
  293. -- line height: 16
  294. -- part name: 
  295.  
  296.  
  297. -- part 16 (field)
  298. -- low flags: 01
  299. -- high flags: 0000
  300. -- rect: left=300 top=183 right=201 bottom=434
  301. -- title width / last selected line: 0
  302. -- icon id / first selected line: 0 / 0
  303. -- text alignment: 0
  304. -- font id: 0
  305. -- text size: 12
  306. -- style flags: 0
  307. -- line height: 16
  308. -- part name: 
  309.  
  310.  
  311. -- part 17 (field)
  312. -- low flags: 01
  313. -- high flags: 0000
  314. -- rect: left=300 top=209 right=227 bottom=434
  315. -- title width / last selected line: 0
  316. -- icon id / first selected line: 0 / 0
  317. -- text alignment: 0
  318. -- font id: 0
  319. -- text size: 12
  320. -- style flags: 0
  321. -- line height: 16
  322. -- part name: 
  323.  
  324.  
  325. -- part 18 (field)
  326. -- low flags: 01
  327. -- high flags: 0000
  328. -- rect: left=300 top=235 right=253 bottom=434
  329. -- title width / last selected line: 0
  330. -- icon id / first selected line: 0 / 0
  331. -- text alignment: 0
  332. -- font id: 0
  333. -- text size: 12
  334. -- style flags: 0
  335. -- line height: 16
  336. -- part name: 
  337.  
  338.  
  339. -- part 19 (field)
  340. -- low flags: 01
  341. -- high flags: 0000
  342. -- rect: left=300 top=261 right=279 bottom=434
  343. -- title width / last selected line: 0
  344. -- icon id / first selected line: 0 / 0
  345. -- text alignment: 0
  346. -- font id: 0
  347. -- text size: 12
  348. -- style flags: 0
  349. -- line height: 16
  350. -- part name: 
  351.  
  352.  
  353. -- part 20 (button)
  354. -- low flags: 00
  355. -- high flags: 0000
  356. -- rect: left=71 top=106 right=122 bottom=435
  357. -- title width / last selected line: 0
  358. -- icon id / first selected line: 0 / 0
  359. -- text alignment: 1
  360. -- font id: 0
  361. -- text size: 12
  362. -- style flags: 0
  363. -- line height: 16
  364. -- part name: 
  365. ----- HyperTalk script -----
  366. on mouseDown
  367.   global checkLoc1
  368.   if the clickH >= 292 then
  369.     get the rect of me
  370.     put item 1 of it + 221 into horz
  371.     put item 2 of it into vert
  372.     put "Round down            ,Round up" into menuList
  373.     set hilite of me to true
  374.     put PopUpMenu(menuList,vert,horz,checkLoc1) into temp
  375.     if temp > 0 then
  376.       put item temp of menuList into card field id 13
  377.       put temp into checkLoc1
  378.     end if
  379.     set hilite of me to false
  380.   end if
  381. end mouseDown
  382.  
  383.  
  384.  
  385. -- part 21 (button)
  386. -- low flags: 00
  387. -- high flags: 0000
  388. -- rect: left=71 top=132 right=148 bottom=435
  389. -- title width / last selected line: 0
  390. -- icon id / first selected line: 0 / 0
  391. -- text alignment: 1
  392. -- font id: 0
  393. -- text size: 12
  394. -- style flags: 0
  395. -- line height: 16
  396. -- part name: 
  397. ----- HyperTalk script -----
  398. on mouseDown
  399.   global checkLoc2
  400.   if the clickH >= 292 then
  401.     get the rect of me
  402.     put item 1 of it + 221 into horz
  403.     put item 2 of it into vert
  404.     put "Exact Percentage,Mid-range Percent " into menuList
  405.     set hilite of me to true
  406.     put PopUpMenu(menuList,vert,horz,checkLoc2) into temp
  407.     if temp > 0 then
  408.       put item temp of menuList into card field id 14
  409.       put temp into checkLoc2
  410.     end if
  411.     set hilite of me to false
  412.   end if
  413. end mouseDown
  414.  
  415.  
  416.  
  417. -- part 22 (button)
  418. -- low flags: 00
  419. -- high flags: 0000
  420. -- rect: left=71 top=158 right=174 bottom=435
  421. -- title width / last selected line: 0
  422. -- icon id / first selected line: 0 / 0
  423. -- text alignment: 1
  424. -- font id: 0
  425. -- text size: 12
  426. -- style flags: 0
  427. -- line height: 16
  428. -- part name: 
  429. ----- HyperTalk script -----
  430. on mouseDown
  431.   global checkLoc3
  432.   if the clickH >= 292 then
  433.     get the rect of me
  434.     put item 1 of it + 221 into horz
  435.     put item 2 of it into vert
  436.     put "Percentages           ,Letter Grades" into menuList
  437.     set hilite of me to true
  438.     put PopUpMenu(menuList,vert,horz,checkLoc3) into temp
  439.     if temp > 0 then
  440.       put item temp of menuList into card field id 15
  441.       put temp into checkLoc3
  442.     end if
  443.     set hilite of me to false
  444.   end if
  445. end mouseDown
  446.  
  447.  
  448.  
  449. -- part 23 (button)
  450. -- low flags: 00
  451. -- high flags: 0000
  452. -- rect: left=71 top=184 right=200 bottom=435
  453. -- title width / last selected line: 0
  454. -- icon id / first selected line: 0 / 0
  455. -- text alignment: 1
  456. -- font id: 0
  457. -- text size: 12
  458. -- style flags: 0
  459. -- line height: 16
  460. -- part name: 
  461. ----- HyperTalk script -----
  462. on mouseDown
  463.   global checkLoc4
  464.   if the clickH >= 292 then
  465.     get the rect of me
  466.     put item 1 of it + 221 into horz
  467.     put item 2 of it into vert
  468.     put "As is From Table,Times P. Credits," into menuList
  469.     put "% Times P. Credits  " after menuList
  470.     set hilite of me to true
  471.     put PopUpMenu(menuList,vert,horz,checkLoc4) into temp
  472.     if temp > 0 then
  473.       put item temp of menuList into card field id 16
  474.       put temp into checkLoc4
  475.     end if
  476.     set hilite of me to false
  477.   end if
  478. end mouseDown
  479.  
  480.  
  481.  
  482. -- part 24 (button)
  483. -- low flags: 00
  484. -- high flags: 0000
  485. -- rect: left=71 top=210 right=226 bottom=435
  486. -- title width / last selected line: 0
  487. -- icon id / first selected line: 0 / 0
  488. -- text alignment: 1
  489. -- font id: 0
  490. -- text size: 12
  491. -- style flags: 0
  492. -- line height: 16
  493. -- part name: 
  494. ----- HyperTalk script -----
  495. on mouseDown
  496.   global checkLoc5
  497.   if the clickH >= 292 then
  498.     get the rect of me
  499.     put item 1 of it + 221 into horz
  500.     put item 2 of it into vert
  501.     put "As is From Table,Times P. Credits," into menuList
  502.     put "% Times P. Credits  " after menuList
  503.     set hilite of me to true
  504.     put PopUpMenu(menuList,vert,horz,checkLoc5) into temp
  505.     if temp > 0 then
  506.       put item temp of menuList into card field id 17
  507.       put temp into checkLoc5
  508.     end if
  509.     set hilite of me to false
  510.   end if
  511. end mouseDown
  512.  
  513.  
  514.  
  515. -- part 25 (button)
  516. -- low flags: 00
  517. -- high flags: 0000
  518. -- rect: left=71 top=236 right=252 bottom=435
  519. -- title width / last selected line: 0
  520. -- icon id / first selected line: 0 / 0
  521. -- text alignment: 1
  522. -- font id: 0
  523. -- text size: 12
  524. -- style flags: 0
  525. -- line height: 16
  526. -- part name: 
  527. ----- HyperTalk script -----
  528. on mouseDown
  529.   global checkLoc6
  530.   if the clickH >= 292 then
  531.     get the rect of me
  532.     put item 1 of it + 221 into horz
  533.     put item 2 of it into vert
  534.     put "Simple Average,G. Pts - Pot. Cred.   " into menuList
  535.     set hilite of me to true
  536.     put PopUpMenu(menuList,vert,horz,checkLoc6) into temp
  537.     if temp > 0 then
  538.       put item temp of menuList into card field id 18
  539.       put temp into checkLoc6
  540.     end if
  541.     set hilite of me to false
  542.   end if
  543. end mouseDown
  544.  
  545.  
  546.  
  547. -- part 26 (button)
  548. -- low flags: 00
  549. -- high flags: 0000
  550. -- rect: left=71 top=262 right=278 bottom=435
  551. -- title width / last selected line: 0
  552. -- icon id / first selected line: 0 / 0
  553. -- text alignment: 1
  554. -- font id: 0
  555. -- text size: 12
  556. -- style flags: 0
  557. -- line height: 16
  558. -- part name: 
  559. ----- HyperTalk script -----
  560. on mouseDown
  561.   global checkLoc7
  562.   if the clickH >= 292 then
  563.     get the rect of me
  564.     put item 1 of it + 221 into horz
  565.     put item 2 of it into vert
  566.     put "Values                     ,Occurances" into menuList
  567.     set hilite of me to true
  568.     put PopUpMenu(menuList,vert,horz,checkLoc7) into temp
  569.     if temp > 0 then
  570.       put item temp of menuList into card field id 19
  571.       put temp into checkLoc7
  572.     end if
  573.     set hilite of me to false
  574.   end if
  575. end mouseDown
  576.  
  577.  
  578.  
  579. -- part contents for background part 3
  580. ----- text -----
  581. 47
  582. 80
  583. 53
  584. 54
  585. 52
  586. 102
  587. 48
  588. 13
  589. 94
  590. 93
  591. 103
  592. 104
  593. 44
  594.  
  595.  
  596.  
  597.  
  598.  
  599. -- part contents for background part 4
  600. ----- text -----
  601. Abrosimoff, Michael John
  602. Adams, Bryan
  603. Alexander, Rick
  604. Alexander, Susan
  605. Allsop, Blair M.
  606. Azimov, Isaac
  607. Barisoff, Larissa
  608. Bunyan, Paul
  609. Burnyeat, Grant
  610. Caldwell, Brian
  611. Chalk, Patricia
  612. Collins, Bob
  613. Conkin, Elizabeth
  614.  
  615. -- part contents for background part 5
  616. ----- text -----
  617. 112
  618. 112
  619. 112
  620. 112
  621. 112
  622. N/A
  623. 112
  624. 112
  625. 112
  626. 112
  627. N/A
  628. N/A
  629. 112
  630.  
  631. -- part contents for background part 6
  632. ----- text -----
  633. 12
  634. 12
  635. 12
  636. 12
  637. 12
  638. 11
  639. 12
  640. 12
  641. 12
  642. 12
  643. 11
  644. 11
  645. 12
  646.  
  647. -- part contents for background part 7
  648. ----- text -----
  649. 0.000
  650. 0.000
  651. 0.000
  652. 0.000
  653. 0.000
  654. 1.000
  655. 0.000
  656. 0.000
  657. 0.000
  658. 0.000
  659. 0.000
  660. 0.000
  661. 0.000
  662.  
  663. -- part contents for background part 8
  664. ----- text -----
  665. 1
  666. 1
  667. 1
  668. 1
  669. 1
  670. 1
  671. 1
  672. 1
  673. 1
  674. 1
  675. 7
  676. 7
  677. 1
  678.  
  679. -- part contents for background part 1
  680. ----- text -----
  681. 99 Students
  682.  
  683. -- part contents for background part 2
  684. ----- text -----
  685. Mon, Aug 28, 1989
  686.  
  687. -- part contents for card part 13
  688. ----- text -----
  689. Round down            
  690.  
  691. -- part contents for card part 14
  692. ----- text -----
  693. Exact Percentage
  694.  
  695. -- part contents for card part 15
  696. ----- text -----
  697. Percentages           
  698.  
  699. -- part contents for card part 16
  700. ----- text -----
  701. As is From Table
  702.  
  703. -- part contents for card part 17
  704. ----- text -----
  705. As is From Table
  706.  
  707. -- part contents for card part 18
  708. ----- text -----
  709. Simple Average
  710.  
  711. -- part contents for card part 19
  712. ----- text -----
  713. Values